$PBExportHeader$w_datos_excepcion.srw
forward
global type w_datos_excepcion from w_abm_detalle
end type
end forward

global type w_datos_excepcion from w_abm_detalle
end type
global w_datos_excepcion w_datos_excepcion

on w_datos_excepcion.create
call super::create
end on

on w_datos_excepcion.destroy
call super::destroy
end on

event ue_iniciar;call super::ue_iniciar;string ls_carrera, ls_comision, ls_nombre[] , ls_codmateria, ls_alumno, ls_nommateria, ls_nombre_reducido
long ll_fila
decimal ldc_inasis_promo , ldc_inasis_regul

IF at_op.Accion = 'A' THEN
	ldc_inasis_promo = dec(f_param_sistema("asist_porcentaje_inasist_promo"))
	ldc_inasis_regul = dec(f_param_sistema("asist_porcentaje_inasist_regul"))
		
	dw_1.setitem(1,'porcentaje_regul',ldc_inasis_regul)
	dw_1.setitem(1,'porcentaje_promo',ldc_inasis_promo)
	
	dw_1.setitem(1,'comision',long(at_op.s_det[4]))	
	dw_1.setitem(1,'unidad_academica',at_op.s_det[1])
	dw_1.setitem(1,'carrera',at_op.s_det[2])
	dw_1.setitem(1,'legajo',at_op.s_det[3])

	ls_carrera = f_descripcion_carrera(at_op.s_det[1],at_op.s_det[2])
	f_datos_un_alumno(at_op.s_det[1],at_op.s_det[2], at_op.s_det[3],ls_nombre) 
	ls_alumno = ls_nombre[4]+', '+ ls_nombre[5]
	ls_codmateria = f_materia_de_la_comision(long(at_op.s_det[4]))
	f_nombre_materia_plan_version (at_op.s_det[1], at_op.s_det[2], ls_nombre[2], ls_nombre[3], ls_codmateria, ls_nommateria, ls_nombre_reducido)
//	ls_nommateria = f_nombre_materia(at_op.s_det[1],ls_codmateria)
	ls_comision = f_nombre_comision(long(at_op.s_det[4]))
	
	dw_1.setitem(1,'nombre_carrera',ls_carrera)
	dw_1.setitem(1,'nombre_comision',ls_comision)
	dw_1.setitem(1,'nombre_materia',ls_nommateria)
	dw_1.setitem(1,'nombre_alumno',ls_alumno)
ELSE
	
	IF isnull(dw_1.getitemstring(1,'tipo_clase')) THEN
		dw_1.setitem(1,'todos_tipos_clases','0')
	ELSE
		dw_1.setitem(1,'todos_tipos_clases','1')
	END IF

END IF



end event

